## 'data.frame':    228 obs. of  5 variables:
##  $ country  : chr  "US" "US" "US" "US" ...
##  $ date     : Date, format: "2020-09-05" "2020-09-04" ...
##  $ confirmed: num  6244970 6200518 6150016 6113510 6073840 ...
##  $ deaths   : num  188538 187755 186790 185720 184664 ...
##  $ recovered: num  2302187 2283454 2266957 2231757 2202663 ...

GGPLOt2 Plots of Cumulative Cases and Deaths

Source: New York Times

ggplot(df) +geom_line(aes(x=date,y=deaths),lwd=3,col="blue") + 
    scale_x_date(date_breaks = "1 month") +
  scale_y_continuous(labels = comma) +
   theme(axis.text.x=element_text(angle =- 45, vjust = 0.5)) +
  labs(title="US Cumulative Total Deaths",x="Date Reported",y="Cumulative Deaths")

GGPLOt2 Plots of Daily Deaths and Deaths

Source: European CDPC

## [1] 24883.93
## [1] 987.1099
## [1] 1872.881
## [1] 1493.243

Histograms of Daily Cases and Deaths